home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / Apple II Getting down to Basic / INTRO.bas < prev    next >
Encoding:
BASIC Source File  |  1983-11-14  |  3.4 KB  |  39 lines
  1. 0  ONERR  GOTO 351
  2. 1  LET IN$ = "X": POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: HOME :F$ = "INTRO.TEXT": GOSUB 321: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 331
  3. 11  POKE  -16368,0: GOSUB 231:NA$ = AN$: HOME : VTAB T +1: HTAB 1: IF  LEN(NA$) >15  THEN  PRINT "That's a bit long.  Please type": PRINT "a shorter name (less than 15": PRINT "characters).": PRINT : GOTO 11
  4. 21 T = 13:B = 20:L = 1:W = 39: GOSUB 221: GOSUB 151
  5. 31  PRINT "Is your name ";NA$"?": PRINT : PRINT "Please type Y if this is correct": PRINT "or N if it's wrong.": PRINT "Then press RETURN.";:CP = 1: GOSUB 231:CP = 0: IF AN$ = ""  THEN  HOME : VTAB T +1: HTAB 1: GOTO 31
  6. 41  IF  ASC(AN$) < >89  AND  ASC(AN$) < >78  THEN  HOME : VTAB T +1: HTAB 1: GOTO 31
  7. 51  IF  ASC(AN$) < >89  THEN  HOME : VTAB T +1: PRINT "We must have misunderstood.": PRINT "Please type in your name again": PRINT "and press RETURN.": PRINT : GOTO 11
  8. 61  PRINT : PRINT  CHR$(4);"OPEN CALLNAME": PRINT  CHR$(4);"CLOSE CALLNAME": PRINT  CHR$(4);"DELETE CALLNAME": PRINT  CHR$(4);"OPEN CALLNAME": PRINT  CHR$(4);"WRITE CALLNAME": PRINT NA$: PRINT  CHR$(4);"CLOSE CALLNAME": HOME : VTAB T +2: HTAB 1
  9. 71  PRINT "There are six sections on this": PRINT "disk.  Unless you are familiar": PRINT "with Applesoft BASIC, we suggest": PRINT "that you go through the sections": PRINT "in order.": GOSUB 101: HOME : VTAB T +2: HTAB 1
  10. 81  PRINT "But you can return to the menu at": PRINT "any time by pressing the ESC key.": GOSUB 101: HOME : VTAB T +2: HTAB 1: PRINT "Now you're ready to begin.  Press"
  11. 85  PRINT "ESC to go to the menu, or press": PRINT "RETURN to go to the next lesson.": POKE 928,1: GOSUB 101: GOSUB 331: PRINT : PRINT  CHR$(4);"RUN PRINT"
  12. 91  GOSUB 331: GOTO 311
  13. 101  POKE  -16368,0
  14. 111 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 341: ON P < >13 GOTO 121: IF TE <225  THEN 111
  15. 121  IF P = 141  THEN TE = 0: CALL  -998: RETURN 
  16. 131 M$ = "Press RETURN": GOSUB 141: FOR Z = 1 TO 700: NEXT Z:M$ = "_____________": GOSUB 141: FOR Z = 1 TO 700: NEXT Z: GOTO 111
  17. 141  VTAB B: HTAB (W - LEN(M$))/2 -1: PRINT M$;: RETURN 
  18. 151  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";
  19. 155  NEXT BD: FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD: POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : HOME : RETURN 
  20. 161  PRINT : PRINT  CHR$(4);"READ ";F$:S$ = "":A$ = "":NL = 1: INPUT S$: IF S$ = "%"  THEN  GOSUB 221: INPUT T,B,L,W: GOSUB 151
  21. 171  IF S$ = "&"  THEN  FOR H = T +1 TO B -1: VTAB H: CALL  -868: NEXT H
  22. 181  CALL 813:IN$ =  MID$ (IN$,1): IF IN$ = "^"  THEN 211
  23. 191  IF NL = 1  THEN  VTAB T +1: HTAB 1
  24. 201 NL = NL +1: PRINT IN$;: GOSUB 181
  25. 211  RETURN 
  26. 221  POKE 32,0: POKE 33,40: POKE 34,V: POKE 35,24: HOME : RETURN 
  27. 231  POKE  -16368,0:AN$ = "": ON CP = 1 GOTO 251
  28. 241  PRINT  CHR$(93);: HTAB 2
  29. 251 R = 0: CALL 768: FOR J = 512 TO 736:X =  PEEK(J): ON X = 155 GOTO 341: IF X = 141  THEN J = 736: GOTO 301
  30. 261  IF X = 162  THEN R = 1
  31. 271  IF J < >512  THEN 291
  32. 281 AN$ = AN$ + CHR$(X -128 -32 *(X >223)): GOTO 301
  33. 291 AN$ = AN$ + CHR$(X -128)
  34. 301  NEXT J: RETURN 
  35. 311  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: POKE  -16368,0: HOME : END 
  36. 321  PRINT : PRINT  CHR$(4);"OPEN ";F$: RETURN 
  37. 331  PRINT : PRINT  CHR$(4);"CLOSE ";F$: RETURN 
  38. 341  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: GOSUB 331: PRINT : PRINT  CHR$(4);"RUN MENU"
  39. 351  RESUME